﻿Public Class ContactUsDetail
    Inherits CoreClass

    ' Gan gia tri cho bien MenuID de kiem tra quyen cua ng dung, gia tri nay lay trog DB va dc fix
    Dim chkMenu As Integer = getIDMenu(16)
    Dim id As Integer = 0

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            ' Set sự kiện submit cho nút chỉ định
            Page.Form.DefaultButton = btnViewed.UniqueID()
            id = Request.QueryString("id")
            If Not id > 0 Then
                Response.Redirect("ContactUsManager.aspx")
            End If
            chkPms((CInt(Session("GroupId").ToString())), chkMenu)
            If Not Page.IsPostBack Then
                If chkView = 1 Then
                    loadData()
                Else
                    objAlert.ErrorBox(Page, "Bạn không có quyền truy xuất trang này, liên hệ với Admin để biết thêm chi tiết.")
                End If
            End If
        Catch ex As Exception
            Response.Redirect("/Inside/xLogin.aspx?redirect=" & Request.Url.PathAndQuery.Replace("?", "|"))
        End Try
    End Sub

#Region "My Function"
    Public Sub loadData()
        Try
            sql = "spi_ContactUsGetByID " & objFunction.ValueCheck(id)
            Dim dts As DataSet = objDataRead.ExeDataset(sql)
            Dim dtbContact As DataTable = dts.Tables(0)
            ' Load data đơn hàng vào form
            lblName.Text = dtbContact.Rows(0).Item("ContactName")
            lblMail.Text = dtbContact.Rows(0).Item("ContactMail")
            lblStartDate.Text = formatTime(dtbContact.Rows(0).Item("ContactDate"))
            Dim stt As Integer = 0
            stt = Integer.Parse(dtbContact.Rows(0).Item("ContactStt"))
            If stt = 0 Then
                imgStt.ImageUrl = "~/static/inSite/images/pre_mail.png"
            Else
                imgStt.ImageUrl = "~/static/inSite/images/mail.png"
                btnViewed.Visible = False
            End If
            txtContent.Text = dtbContact.Rows(0).Item("ContactContent")
        Catch ex As Exception
            If objConfig.Developer.Equals("1") Then
                objAlert.ErrorBox(Page, "File: " & (New System.Diagnostics.StackTrace).GetFrame(0).GetMethod.DeclaringType.Name & _
                                  " --- Function: " & (New System.Diagnostics.StackTrace).GetFrame(0).GetMethod.Name & _
                                  " --- Mess: " & ex.Message.Replace("'", """"))
            Else
                objAlert.ErrorBox(Page, "Lỗi kỹ thuật, hãy thông báo lại với Admin, xin cảm ơn.")
            End If
        End Try
    End Sub

    ' Ham hien thi ngay thang tren grid view
    Public Function formatTime(ByVal str As String) As String
        Dim tempDate As New Date
        tempDate = CDate(str)
        Dim strDateReturn = tempDate.Day & "-" & tempDate.Month & "-" & tempDate.Year
        Dim strTimeReturn = tempDate.Hour & ":" & tempDate.Minute & "  " & tempDate.Second
        Return strDateReturn & "<span style=""font-style:italic;font-size:11px;color: #808080"">(" & strTimeReturn & ")</span>"
    End Function
#End Region

#Region "input Event"
    ' xu ly su kien qua lai trang manager
    Private Sub btnBack_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBack.Click
        Response.Redirect("ContactUsManager.aspx")
    End Sub

    ' xu ly su kien update gop y da dc xem
    Private Sub btnViewed_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnViewed.Click
        If chkUpdate = 1 Then
            Try
                sql = "update Out_ContactUs set ContactStt = 1 where ContactID = " & objFunction.ValueCheck(id)
                objDataRead.ExeNonQuery(sql)
                objFunction.writeLog(Session("UserId"), 1, "Đã xem góp ý của khách hàng", "Tên hách hàng: " & lblName.Text, "Email: " & lblMail.Text)
                objAlert.InfoBox(Page, "Đã duyệt góp ý thành công", "ContactUsManager.aspx")
            Catch ex As Exception
                If objConfig.Developer.Equals("1") Then
                    objAlert.ErrorBox(Page, "File: " & (New System.Diagnostics.StackTrace).GetFrame(0).GetMethod.DeclaringType.Name & _
                                      " --- Function: " & (New System.Diagnostics.StackTrace).GetFrame(0).GetMethod.Name & _
                                      " --- Mess: " & ex.Message.Replace("'", """"))
                Else
                    objAlert.ErrorBox(Page, "Có lỗi trong quá trình update. <br><br>Hãy thông báo lại cho Admin.")
                End If
            End Try

        Else
            objAlert.ErrorBox(Page, "Bạn không có quyền sử dụng tính năng này. <br><br>Liên hệ với Admin để biết thêm chi tiết.")
        End If
    End Sub

    ' xu ly su kien xoa gop y
    Private Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        If chkDelete = 1 Then
            Try
                sql = "delete Out_ContactUs where ContactID = " & objFunction.ValueCheck(id)
                objDataRead.ExeNonQuery(sql)
                objFunction.writeLog(Session("UserId"), 0, "Xác nhận xóa góp ý của khách hàng thành công", "Khách hàng: " & lblName.Text, "Email: " & lblMail.Text)
                objAlert.InfoBox(Page, "Xác nhận xóa góp ý của khách hàng thành công", "ContactUsManager.aspx")
            Catch ex As Exception
                If objConfig.Developer.Equals("1") Then
                    objAlert.ErrorBox(Page, "File: " & (New System.Diagnostics.StackTrace).GetFrame(0).GetMethod.DeclaringType.Name & _
                                      " --- Function: " & (New System.Diagnostics.StackTrace).GetFrame(0).GetMethod.Name & _
                                      " --- Mess: " & ex.Message.Replace("'", """"))
                Else
                    objAlert.ErrorBox(Page, "Có lỗi trong quá trình update. <br><br>Hãy thông báo lại cho Admin.")
                End If
            End Try

        Else
            objAlert.ErrorBox(Page, "Bạn không có quyền sử dụng tính năng này. <br><br>Liên hệ với Admin để biết thêm chi tiết.")
        End If
    End Sub
#End Region




End Class